Developer CD Series 1996 May: Tool Chest/Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso/Sample Code/Snippets/Toolbox/icon cache demo/icon cache.c

Text File | 1996-01-25 | 4.6 KB | 219 lines | [TEXT/CWIE]

    //
    //    This sample demonstrates the use of an icon cache
    //    to limit the search for icon resource to one resource
    //    file. It does this by installing an icon getter function
    //    into the cache which calls Get1(Ind)Resource instead of the
    //    usual GetResource.
    //
    //    The application is meant to display the first
    //    suite produced by an indexed resource call. There's nothing
    //    stopping you from calling Get1Resource or anything else
    //    which might produce a handle to a member of an icon suite.
    //
    //    There's also some jiggery-pokery having to do with my
    //    distaste for purgeable handles; see below for details.
    //
    //    Complaints and kudos to:
    //
    //        Pete Gontier
    //        Apple Macintosh Developer Technical Support
    //        <[e-mail]>
    //

#define OLDROUTINELOCATIONS        0
#define OLDROUTINENAMES            0
#define SystemSevenOrLater        1

#ifndef __FONTS__
#    include <Fonts.h>
#endif

#ifndef __DIALOGS__
#    include <Dialogs.h>
#endif

#ifndef __RESOURCES__
#    include <Resources.h>
#endif

#ifndef __STANDARDFILE__
#    include <StandardFile.h>
#endif

#ifndef __ICONS__
#    include <Icons.h>
#endif

static pascal Handle MyIconGetter (ResType rt, void *)
{
    //
    //    DisposeIconSuite assumes resources are purgeable and doesn't
    //    release them. Since we would rather the memory be freed,
    //    we have our icon getter function ('MyIconGetter') detach
    //    each resource it gets. This turns off the resource bit for
    //    the handle and clues DisposeIconSuite it should call DisposeHandle.
    //

    Handle iconH = Get1IndResource (rt,1);
    if (!iconH || ResError ( ))
        return nil;

    DetachResource (iconH);
    if (ResError ( ))
    {
        ReleaseResource (iconH);
        return nil;
    }

    return iconH;
}

static pascal void Plot1IndIconSuite (Rect *rect)
{
    Handle iconCacheH;

    if (!MakeIconCache (&iconCacheH,MyIconGetter,nil))
    {
        PlotIconSuite (rect,kAlignNone,kTransformNone,iconCacheH);

        //
        //    DisposeIconSuite assumes resources are purgeable and doesn't
        //    release them. Since we would rather the memory be freed,
        //    we have our icon getter function ('MyIconGetter') detach
        //    each resource it gets. This turns off the resource bit for
        //    the handle and clues DisposeIconSuite it should call DisposeHandle.
        //

        DisposeIconSuite (iconCacheH,true);
    }
}

//////////////////////////////////////////////////////////////////////
//
//    Below please find the usual sort of application boilerplate.
//
//////////////////////////////////////////////////////////////////////

static Boolean gQuitting;

static pascal OSErr InitMac (void)
{
    MaxApplZone ( );
    InitGraf (&(qd.thePort));
    InitFonts ( );
    InitWindows ( );
    InitMenus ( );
    TEInit ( );
    InitDialogs (nil);

    return noErr;
}

static pascal void IconUserItem (WindowRef dlgRef, short itemNo)
{
    short crf = CurResFile ( );
    short iType; Handle iHandle; Rect iRect;
    GetDialogItem (dlgRef,itemNo,&iType,&iHandle,&iRect);
    UseResFile (GetWRefCon (dlgRef));
    if (!ResError ( ))
    {
        Plot1IndIconSuite (&iRect);
        UseResFile (crf);
    }
}

static pascal void GrabIcon (void)
{
    StandardFileReply sfr;
    StandardGetFile (nil,-1,nil,&sfr);
    if (sfr.sfGood)
    {
        short crf = CurResFile ( );
        short resRefNum = FSpOpenResFile (&(sfr.sfFile),fsRdPerm);
        if (resRefNum != -1)
        {
            DialogRef dlgRef = nil;

            UseResFile (crf);

            dlgRef = GetNewDialog (128,nil,(WindowRef)-1);
            if (dlgRef)
            {
                short itemHit;

                short iType; Handle iHandle; Rect iRect;

                GetDialogItem (dlgRef,2,&iType,&iHandle,&iRect);
                SetDialogItem (dlgRef,2,iType,(Handle)IconUserItem,&iRect);
                SetWRefCon (dlgRef,resRefNum);

                ShowWindow (dlgRef);
                ModalDialog (nil,&itemHit);

                DisposeDialog (dlgRef);
            }

            CloseResFile (resRefNum);
        }
    }
}

static pascal void Command (long ms)
{
    short    menuID = ms >> 16,
            menuItem = ms;

    if (menuID == 129)
    {
        if (menuItem == 2)
            gQuitting = true;
        else if (menuItem == 1)
            GrabIcon ( );
    }
}

static pascal void HandleEvent (const EventRecord *eventP)
{
    if (eventP->what == mouseDown)
    {
        WindowRef whichWindow;
        short partCode = FindWindow (eventP->where, &whichWindow);
        if (partCode == inMenuBar)
        {
            long ms = MenuSelect (eventP->where);
            if (ms) Command (ms);
            HiliteMenu (0);
        }
    }
}

static pascal Boolean SetUpMenuBar (void)
{
    Boolean result = false;
    Handle mBar = GetNewMBar (128);
    if (!ResError ( ) && mBar)
    {
        SetMenuBar (mBar);
        AppendResMenu (GetMenuHandle (130), 'DRVR');
        DrawMenuBar ( );
        result = true;
        ReleaseResource (mBar);
    }
    return result;
}

void main (void)
{
    if (!InitMac ( ) && SetUpMenuBar ( ))
    {
        do
        {
            EventRecord event;
            InitCursor ( );
            WaitNextEvent (everyEvent, &event, -1, nil);
            HandleEvent (&event);
        }
        while (!gQuitting);
    }
}